DRSTRANS * Date...............: 12-21-96 * Versions...........: dBASE 5.0, Report * Notes: * ------ * Prior to running this procedure with the DO command * it is necessary use LOCATE because the CONTINUE * statement is in the main loop. *-- Parameters PARAMETERS gl_noeject, gl_plain, gl_summary, gc_heading, gc_extra ** The first three parameters are of type Logical. ** The fourth parameter is a string. The fifth is extra. PRIVATE _peject, _wrap, SUB_CODE FIRST_REF ACTCD_REF SUBCD_DATE ENDIF *-- turn word wrap mode off _wrap=.F. IF _plength < 1 + 1 + 2 SET DEVICE TO SCREEN DEFINE WINDOW gw_report FROM 7,17 TO 11,62 DOUBLE ACTIVATE WINDOW gw_report @ 0,1 SAY "Increase the page length for this report." @ 2,1 SAY "Press any key ..." x=INKEY(0) DEACTIVATE WINDOW gw_report RELEASE WINDOW gw_report RETURN ENDIF _plineno=0 && set lines to zero *-- NOEJECT parameter IF gl_noeject IF _peject="BEFORE" _peject="NONE" ENDIF IF _peject="BOTH" _peject="AFTER" ENDIF ENDIF *-- Set-up environment ON ESCAPE DO Prnabort IF SET("TALK")="ON" SET TALK OFF gc_talk="ON" gc_talk="OFF" ENDIF gc_space=SET("SPACE") SET SPACE OFF gc_time=TIME() && system time for predefined field gd_date=DATE() && system date " " " " gl_fandl=.F. && first and last page flag gl_prntflg=.T. && Continue printing flag gl_widow=.T. && flag for checking widow bands gn_length=LEN(gc_heading) && store length of the HEADING gn_level=2 && current band being processed gn_page=_pageno && grab current page number gn_pspace=_pspacing && get current print spacing *-- Initialize calculated variables. debit=0 credit=0 *-- Set up procedure for page break gn_atline=_plength - 1 ON PAGE AT LINE gn_atline EJECT PA SUB_CODE Cyobe Dyobe SUB_CODE FIRST_REF 001 CN004 FIRST_REF BYobe BYobe Cyobe Cyobe Cyobe Cyobe Cyobe Cyobe Cyobe DTanya DTanya " DTanya # DTanya Dyobe Dyobe Dyobe Dyobe Dyobe Dyobe Dyobe Dyobe Dyobe Dyobe Dyobe Dyobe Dyobe Dyobe Dyobe Dyobe Kmahara Kmahara Kmahara Kyobe Kyobe Kyobe Kyobe PTaisi PTaisi PTaisi PTaisi PTaisi Tyobe Tyobe Tyobe Tyobe Tyobe Tyobe Tyobe Tyobe Tyobe Tyobe Tyobe Tyobe Tyobe Tyobe Tyobe 001 002 002 003 004 004 005 + 005 006 006 010 010 010 011 012 " 121212 $ 12123456 ! 1213 ( 1234 ' 123456 2 123456 & 123456654 , 123456654 % 123456789 - 123456789 1245 2000 0 2500 3 2500 4 2500 5 2500 3000 3000 . 3000 6 3255 4125 / 4125 # 4555 5000 7 5222 ) 5444 6544 6544 6544 6545 * 6565 1 8455 8526 8 8544 8585 8585 CN004 CN004 CN102 CN102 CN102 trim(sub_code)+trim(first_ref) 001 Tyobe005 FIRST_REF BYobe1245 BYobe6544 Cyobe001 Cyobe003 Cyobe004 Cyobe004 Cyobe012 CyobeCN004 CyobeCN004 " DTanya121212 # DTanya4555 DTanya6544 DTanya6544 Dyobe002 Dyobe002 Dyobe006 Dyobe006 Dyobe010 Dyobe010 Dyobe010 2 Dyobe123456 0 Dyobe2500 3 Dyobe2500 4 Dyobe2500 5 Dyobe2500 1 Dyobe8455 DyobeCN102 DyobeCN102 trim(sub_code)+dtos(date)+first_ref Cyobe19960505012 Tyobe19961011005 BYobe199612281245 BYobe199612286544 Cyobe19960505012 Cyobe19961112004 Cyobe19961112004 Cyobe19961218001 Cyobe19961221003 Cyobe19961221CN004 Cyobe19961221CN004 " DTanya19961228121212 # DTanya199612284555 DTanya199612286544 DTanya199701016544 Dyobe19960606CN102 Dyobe19960606CN102 Dyobe19960606CN102 Dyobe19960707010 Dyobe19960707010 Dyobe19960707010 Dyobe19961111006 Dyobe19961111006 Dyobe19961218002 Dyobe19961218002 2 Dyobe19961228123456 1 Dyobe199612288455 0 Dyobe199701012500 3 Dyobe199701012500 4 Dyobe199701012500 5 Dyobe199701012500 ( Kmahara199612281234 ' Kmahara19961228123456 Kmahara199612282000 Kyobe19960606011 $ Kyobe1996122812123456 Kyobe199701018585 Kyobe199701018585 ! PTaisi199612281213 Dyobe19960707010 PTaisi199612281213 PTaisi199612286565 PTaisi199612288526 Tyobe19961011005 + Tyobe19961011005 & Tyobe19961228123456654 , Tyobe19961228123456654 % Tyobe19961228123456789 - Tyobe19961228123456789 Tyobe199612284125 / Tyobe199612284125 Tyobe199612285000 Tyobe199701013000 Tyobe199701013000 . Tyobe199701013000 PTaisi199612285444 PTaisi199612286545 * PTaisi199612286565 PTaisi199612288526 Tyobe19961011005 + Tyobe19961011005 & Tyobe19961228123456654 , Tyobe19961228123456654 % Tyobe19961228123456789 - Tyobe19961228123456789 Tyobe199612284125 / Tyobe199612284125 Tyobe199612285000 Tyobe199701013000 Tyobe199701013000 . Tyobe199701013000 DyobeCN102 ( Kmahara1234 ' Kmahara123456 Kmahara2000 Kyobe011 $ Kyobe12123456 Kyobe8585 Kyobe8585 ! PTaisi1213 ) PTaisi5444 PTaisi6545 * PTaisi6565 PTaisi8526 Tyobe005 + Tyobe005 & Tyobe123456654 , Tyobe123456654 % Tyobe123456789 - Tyobe123456789 Tyobe3000 Tyobe3000 . Tyobe3000 6 Tyobe3255 Tyobe4125 / Tyobe4125 Tyobe5000 7 Tyobe5222 8 Tyobe8544 DyobeCN102 Kmahara1234 ' Kmahara123456 Kmahara2000 Kyobe011 $ Kyobe12123456 Kyobe8585 Kyobe8585 ! PTaisi1213 ) PTaisi5444 PTaisi6545 * PTaisi6565 PTaisi8526 Tyobe005 + Tyobe005 & Tyobe123456654 % Tyobe123456789 Tyobe3000 Tyobe3000 Tyobe4125 Tyobe5000 DyobeCN102 DyobeCN102 ( Kmahara1234 ' Kmahara123456 Kmahara2000 Kyobe011 $ Kyobe12123456 Kyobe8585 Kyobe8585 ! PTaisi1213 ) PTaisi5444 PTaisi6545 * PTaisi6565 PTaisi8526 Tyobe005 + Tyobe005 & Tyobe123456654 % Tyobe123456789 Tyobe3000 Tyobe3000 Tyobe4125 PTaisi199612285444 PTaisi199612286545 * PTaisi199612286565 PTaisi199612288526 Tyobe19961011005 + Tyobe19961011005 & Tyobe19961228123456654 , Tyobe19961228123456654 % Tyobe19961228123456789 - Tyobe19961228123456789 Tyobe199612284125 / Tyobe199612284125 Tyobe199612285000 Tyobe199701013000 Tyobe199701013000 . Tyobe199701013000 6 Tyobe199701023255 7 Tyobe199701035222 8 Tyobe199701038544